home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / TMBIOS.FOR < prev    next >
Text File  |  1988-09-26  |  403b  |  20 lines
  1.       PROGRAM TMBIOS
  2. C
  3. C     TEST PROGRAM FOR MBIOS
  4. C     OLYMPIC SOFTWARE  --  9/26/88
  5. C
  6. C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
  7. C
  8.       EXTERNAL MBIOS
  9.       INTEGER*2 IARRAY(15)
  10. C
  11.       WRITE(*,20)
  12.  20   FORMAT(' IARRAY=? ',$)
  13.       READ(*,*)(IARRAY(I),I=1,15)
  14.       CALL MBIOS(IARRAY)
  15.       WRITE(*,12)(IARRAY(I),I=1,15)
  16.  12   FORMAT(/,15I4)
  17.       STOP
  18.       END
  19.  
  20.